home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / gfx / edit / AmiCAD_2.07.lha / AmiCAD / ARexx / ChoixFormat.AmiCAD < prev    next >
Text File  |  2000-11-04  |  1KB  |  44 lines
  1. /* Choix du format du document courant */
  2. /* Version 1.00 (® R.Florac, 14/03/1999) */
  3. /* Version 1.01: 4 novembre 2000 (localisation anglais/français) */
  4. /* $VER: ChoixFormat.AmiCAD (© R.Florac, 4/11/00) */
  5.  
  6. options results     /* indispensable pour récupérer le résultat des macros */
  7.  
  8. signal on error     /* pour l'interception des erreurs */
  9. signal on syntax
  10.  
  11. 'LANGUAGE'
  12. if result='français.language' then fr=1
  13. else fr=0
  14.  
  15. if fr=1 then 'SELECT("Format document"+CHR(10)+"A4 horizontal (3)"+CHR(10)+"A4 vertical (3)"+CHR(10)+"A4 horizontal (2)"+CHR(10)+"A4 vertical (2)")'
  16. else 'SELECT("Document size"+CHR(10)+"A4 horizontal (3)"+CHR(10)+"A4 vertical (3)"+CHR(10)+"A4 horizontal (2)"+CHR(10)+"A4 vertical (2)")'
  17. f=result
  18. select
  19.     when f=1 then 'DIMSHEET(1120,800)'
  20.     when f=2 then 'DIMSHEET(800,1120)'
  21.     when f=3 then 'DIMSHEET(1695,1200)'
  22.     when f=4 then 'DIMSHEET(1200,1695)'
  23.     otherwise exit
  24. end
  25. if f>0 then do
  26.     if fr=1 then 'REQFILE("Nom du schéma?", "Travail:AmiCAD/Schémas", "")'
  27.     else 'REQFILE("Sheet name ?", "Work:AmiCAD/Sheets", "")'
  28.     n=result
  29.     if n~='' then 'FILENAME("'n'")'
  30. end
  31. exit
  32.  
  33. /* Traitement des erreurs, interruption du programme */
  34. syntax:
  35. erreur=RC
  36. if fr=1 then 'MESSAGE("Erreur de syntaxe"+CHR(10)+"en ligne 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  37. else 'MESSAGE("Syntax error"+CHR(10)+"in line 'SIGL'"+CHR(10)+"'errortext(erreur)'")'
  38. exit
  39.  
  40. error:
  41. if fr=1 then 'MESSAGE("Erreur en ligne 'SIGL'")'
  42. else 'MESSAGE("Error in line 'SIGL'")'
  43. exit
  44.